2022/11/29 final project Zoey Chen
Initialize libraries
## Loading required package: DBI
Set up the connection
Query3 <- "SELECT
*
FROM
crime;"
data <- dbGetQuery(connection, Query3)
data$latitude <- as.numeric(as.character(data$latitude))
data$longitude <- as.numeric(as.character(data$longitude))
library(leaflet)
tag <- function (id, date, block) {
paste(sep = "<br />", paste("<b>Crime ID:", id, "</b>"), paste("Date:", date), paste("Block:", block))
}
chi_map <- leaflet(data) %>%
addTiles() %>%
setView(lat=41.29, lng=-87.61, zoom=11) %>%
addCircleMarkers(lat=~latitude, lng=~longitude, clusterOptions = markerClusterOptions(), labelOptions=labelOptions(), popup=~tag(crime_id, crime_date, crime_block), radius = 8, stroke = TRUE, fillOpacity = 0.8, opacity = 0.8)
## Warning in validateCoords(lng, lat, funcName): Data contains 4968 rows with
## either missing or invalid lat/lon values and will be ignored
chi_map